#!/usr/bin/env perl

use strict;
use utf8;

my $string = "Fred J. Flintstone";

my $mineral = substr($string, 8, 5);

print $mineral."\n";
